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DECLARATIONS 

NE TSCONNECT = IO$_ACCESS $Q10 Procesing a 
PRS_NCB = Parse Network Connect Block 

PRS_NODE - Parse NCB nodename 

PRS_ACCESS - Parse NCB access control fields 
PRS_OBJECT - Parse NCB target task identifier 


GET_STR_NUM = Get next numeric token tas 
GET-TOKEN = Get next token eo 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS vou UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH biceNee AND WITH THE 
INCLUSION OF i ABOVE SS githo NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aneponat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SOOCoQoooooooooooooo 


Toei Steet Titi tii iii titi iii titi iiiiiiiiiiiiiitiiiiiitiiiiiiig) 
FACILITY: NETWORK ACP 
ABSTRACT: 


This module performs processing for lLogical-lLink connect requests including 
connect initialize, connect confirm, and connect reject. 


The Network Connect Block (NCB) is pares and an Internal Connect Block (1CB) 
ey die reaivene is built and hung onto the IRP. The IRP is requeued 
o the 


NCBs have the same form as the translation of the logical name ‘'SYSSNET"' 
and is shown below. 


node"‘access control info''::'‘object=taskname/linknumber+userdata’’ 


‘node’ may be specified either by name or number. 

‘object’ may be specified either by name or number. 

*taskname’ is required if the object number is zero and is only 
allowed if the object number is zero. 


ENVIRONMENT: 
MODE = KERNEL 
AUTHOR: A.Eldridge, CREATION DATE: 10-JUN-79 
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$ 2:18: NETACP.SRCJNETCONECT.MAR; 1 
V03-035 PRBO344 Paul Beck 27-Jul-1984 13:21 
Fix truncation error. 
V03-034 ADE0035 Alan D. Eldridge 25-Jun-1984 


Don't override XWB creation/insertion error code with 
SS$_NOLINKS"’. 


| 
v03-033 PRBO316 Paul Beck 8-Mar-1984 17:13 

Resequence local symbols in PRS_NODE. 

Allow endnode to offer larger buffer size if the buffer 

associated with the line is larger than the executor buffer 

size. This requires that the Link be nonadaptive, but offers 

performance wins. 


v03-032 ADE0034 Alan D. Eldirdge 15-Feb-1984 
Modify it use LLI database and insert XWB's into the LTB 
vector. Send the External PID format in format type 2 
connect requests. 


v03-031 PRBO309 Paul Beck 23-Jan-1984 14:30 
Do not make Link nonadaptive if Line buffer size equals 
the executor buffer size. Undoes part of TMHO030. 


v030 TMHOO030 Tim Halvorsen 10-Jul-1983 

Fix detection of ''l hop away’’ for purposes of using 
Line buffer size. The previous check never worked 
and always used the Line buffer size if specified. 
Allow normal NDI entries to ogee tty an explicit output 
circuit, overriding the decision a ee. This is 
similar to loop nodes, but applies to nodes with real 
remote addresses. 
Remove check which sprerye LINE BUFFER SIZE if it was 
lower than the executor buffer size, so that as long 
oe oy ae buffer size parameter was explicitly specified, 
s is used. 


v029 TMHO029 Tim Halvorsen 31-May-1983 
Fix problem with NODE ACCESS checking if the user 
specified a node address without an area number. 


v028 RNGOO28 Rod Gamache 20-Apr-1983 
Fix branch destination out of range. 


v027 TMHOO027 Tim Halvorsen 05-Mar-1983 
Remove obsolete DLE code (replaced by completely 
rewritten DLE module). 


v026 TMHOO026 Tim Halvorsen 14-Feb-1983 

Remove node proxy eccess parameter. 

Add support for “Line buffer size’’ which can be used by a 

system manager to override the executor buffer size on 

a per-line basis. This parameter has special meaning, 

in that when used to increase the Line's buffer size 

higher than the executor buffer size, then all logical a 

Links to adjacent nodes over this Line become ‘‘non-adaptive’’, 
and use the larger buffer size for optimized performance. 
Add support for EPIDs. 
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v025 TMHOO25 Tim Halvorsen 28-Dec-1982 
Send username rather than PID with out oe connects 
if default access control is supplied to the remote node 
(except the nonprivileged local node case). 
Fix local outgoing connect case so fhat nonprivileged 
access is supplied on the inbound side, not the outbound 
side. This fixes a problem with proxy that prevented 
—— cree eran on local connects unless the local NDI 

roxy w P 

Pix {ong-standing bug which prevented outgoing default 
access control from being applied because some junk in 
the upper word of the NDI search key wasn't oon zeroed. 
This fixes both outgoing default access control for remote 
nodes, and it fixes the privileged access control mechanism. 
It also fixes loop nodes, which were failing to associate 
the Link with the proper circuit, and were using the local 
LPD instead. 

Fix ag Bg connect, so that if the circuit exists, but 

| 


Ooo 
Ooo 


pele leloleleololololol ola) 


has no LPD (the state is off), then an error is returned. 


v024 TMHOO24 Tim Halvorsen 29-0ct-1982 
Add area routing support. 
Fix DLE so that it matches by user channel as well 
as PID, so that a cancel on another NET channel doesn't 
blow away DLE channels. 


v023 TMHOO23 Tim Halvorsen 29-Sep-1982 
Avoid check which ensures that a node is reachable 
at connect time if we are an endnode. 


v022 TMHOO022 Tim Halvorsen 02-Sep-1982 
Remove check of XWB state in DLE cancel routine. 


v021 TMHOO21 Tim Halvorsen 22-Jul-1982 
Modify call to TEST_REACH, to use adjacency symbols 
to determine the type of partner node. 
v020 TMHOO20 Tim Halvorsen 29-Jun-1982 
Add SDYNDEF definition. 


v019 TMHOO19 Tim Halvorsen 09-Apr-1982 
Fix proxy access checking for inbound connect requests 
of zero-numbered objects with the name in the NCB. 
It didn't correctly look up the proxy access parameter 
in the named OB] entry, but used the number proxy access 


SOSOOCSCSSOSOSOOSOSOSOSOSOSOSOSOSOOSOSOOSOOSOSOOOOSOSOSOOOSSS 
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value instead. 
Pick up address of utility buffer, rather than referencing 
a statically defined location. 


vO18 = TMHOO18 vege lim Halvorsen — 05-Mar-1982 
Mark ACP in ‘‘dismount”’ state when the mount count goes. 
to zero, to avoid a race between the final DLE XWB coming 
back from NETDRIVER and a new ACCESS function contng in 
from a user. The ‘‘dismount’’ state will signal the EXEC 
to reject the Q10 request. 
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X02-17 ADE0033 ged athe 25-Jan-198 
Disallow default outbound access control if connect uses 


proxy login. 


X02-16 ADE0032 A.E 
Require OPER priv on IO$_ACCESS for circuit ‘‘direct-access’’. 


x02-15 ADE0031 A.Eldridge 18-Dec-1981 
Enter remote object name as the RID field (remote i.d.) 


Ldridge 18-Jan-1982 


when initiating outbound connects. 


ADE0030 A.Eldridge 30-Nov-1981 
Added proxy login support. 


X02-13 ADE0029 A.Eldridge 11-Nov-1981 
Identify local process a username rather than PID in crder 
to allow the implementation of proxy logins at the remote 
side of the Link. 


: 2 

; -x02-10 ADE0028 _ A.Eldridge 1=Nov-1981 
3 Fix bugs in ‘‘direct-link access’’ code. 

: x02-09 A.Eldridge 1-0ct-1981 
3 Put in ‘‘direct-link access'’ interface. 
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A.Eldridge 1-0ct-1981 . 
Permanent modification to optionally restrict logical Link 
access based upon the ‘access state 
the privilege of the ‘ocal user. 


‘of the remote node and 


3 X02-07 A.Eldridge 1-APR-1981 
Tempory modification to optionally restrict outbound access 
to selected nodes by nonprivileged users. This is for DECUS 
and NCC demos. 

: v02-04 Eldridge 11-NOV-1979 


A. 
Modify for new node, object, and task data base 


v02-03 : $.G.D. 11-JUN-1979 
erg bel for routing. 

v02-02 $G6D00007 $.6.D. 22-NOV-1978 13:10 , 
Allow multiple spaces and tabs in access control info. 
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;& need to fix bug which disallows a null destination name on connect confirm 
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TCONECT = Proc 
vo DECLARA 
.SBTTL DECLARATIONS 
INCLUDE FILES: 


SNSPMSGDEF ; DNA architecture definitiuns & message formats 


SXWBDEF 


; MACROS: 


MACRO FILL_INC NUMCHARS,STARTCHAR,STARTPOS : Fill range with 
increasing values 
-=.°256+STARTPOS Reposition PC 
C=STARTCHAR 
REPT NUMCHARS 
-BYTE C 
C=C+1 


9 
0 
1 
§ 
4 
5 
; 
9 
0 
1 
g 
4 
5 
6 
7? 
8 
9 
0 
1 
5 
4 
5 
6; 
? 
5 
0 
1 
5 
4 


Loop for each char. 
Store character 
Bump character 


Bete Se 


=. “NUMCHARS=STARTPOS +256 Restore PC 


EQUATED SYMBOLS: 


= *X<09> s 
= *X<20> : 


00000009 


00000020 SPACE 


? OWN STORAGE: 


5 
6 
7? 
8 
9 
0 
' 
4; 
é tas 
8 
9 
y 
§ ~-PSECT NET_PURE ,NOWRT ,NOEXE ,LONG 
4 

5 


PRV_TAB: : Field i.d.*s for privilege access 


- yop 


42 41 39 38 37 36 35 34 33 i 31 7 
46 45 44 4 
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S8SSSSSSSSSSSS3SS8SSSS 


SSSSSSSSSSSSSSSSSS3SS 


SSSSSSSSSSSSSS3S8SS3S 


SS8SS8SS8SS888S833S3s3ss 


SSSSSSSSSSSSSSSSS8SSS 


SSSSSSSSS8SSSSSSS3S8S 
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wl 1,<0>,<* x 
FILL_INC 26,<*AA''>,<*A"'a’'> 
256 


00000330 NETSAB_ACC_TAB: .BLKB 


: Make °'/** a delimiter 


; ALL lower case ** uppercase 


; Translation table for access control 


- Process user connect requests 16-SEP-1984 01:17: AX/VMS Ma v04-00 P 
DECLARATIONS ” eet 7 Oa 1B 83 NETACP. SRCINETCONECT MAR: 1 rai 
7 
a9 5g -CNFFLD ndi,s,pus :; Privileged user field i.d. 
Sh CAMIER tale | DEH Aegeg snore fo0d tt 
° oS, 3 ed accoutn -d. 
00000000 8 i ‘tome 0 ie isin 
4 Ht NONPRV_TAB: ; Field i.d.’s for nonprivileged access 
01 4 -CNFFLD ndi,s,nus 3; Nonpriv user field i.d. 
B18 586 “ENEFLD na secre i Gebrte beomen tial Ca” 
00000000 ates ‘ “LONG 0 care a 
33 3 BIN_HEXASC: ASCII /0123456789ABCDEF/ ; For binary to Hex Ascii conversion 
0030 90 
Boe 91 NETSAB_UPASCNUM: : :; Translation table for upper 
030 3 3 case ASCII and numerics 
bs 4 Bose 9 -—BYTE 0256) 3; Fill initially with terminator 
00'00'00' 003C 
Bb hoop: 0048 
BB. Bop: 3828 
0°00'00' 0060 
S808 88h 
00°00'00' 0084 
00'00'°00' 3830 
00°00°00' 009C 
bs 4 Bear 
+f 0°00 0084 
0° Bop: 0cO 
Op: "00° OOCC 
00°00'00' 00D8 
5°9 00° OO0E4 
0° 0° * OOFO 
0°00'00' ft 
fs * 0108 
0° Bop: 114 
Bob 0" 0120 
00°00'00° 01 f 
94 FILL_INC 10,<*A‘'‘0''>,<*A''0''> ; ALL numerics trans to themselves 
95 FILL_INC 26,<*A''A''>,<*A''A''D 3; All upper case“ “ si 
38 FILL_INC 26,<*A'‘A''>,<*A''a’’> 3; ALL lower case '' ‘°' uppercase 
98 NETSAB_OBJTRAN: ; Translation table for object names 
99 eREPT 256 
00 3 “pure -*NETSAB_OBJTRAN ; Fill up translation tabel with .=. 
FILL_INC 1,<0>,<*A/"'/> : Make /''/ a delimiter 
0 


FILL_INC 256,0,0 
FILL_INC 1,0,SPACE 


: Init so that each character translates 
3; to itse 
; Space is a terminator 


3) 
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11 FILL_INC 1,0,TAB ; Tab is a terminator 
1 FILL_INC 1,0,<*A/"'/> ; Quote is a terminator 
14 
0000 8 1? -PSECT NET_IMPURE,WRT,NOEXE,LONG 
00000000 44 19 ACC_TAB: » LONG ; Points to current access table 
gi 444 4 18 NDI_PTR: «LONG 3; Points to NDI genet Sots the node 
0000000 Bee is OBI_PTR: - LONG ; Points to destination OBI 
00000000 00000000 00 1 OBJ_Q_DESC: -QUAD 0 3; Object specifier from NCB 
00000000 00000000 Bie ¢ TSK_Q_DESC: «QUAD 0 ; Task specifier from NCB 
6% O1C 4 NDI_B_ACC: -BYTE 0 ; NDI access state 
0 OTD 325 OB1_B PRX: BYTE 0 ; OBI proxy access state 
Ss O1E 6 INT_B_PRX: -BYTE 0 ; Internal proxy access state 
00000020 ah i BLKB 1 3; (spare fer alignment) 
00000000 8880888 Be 9 JP1_Q_I10SB: QUAD 8 ; I0SB for GET_JPI 
000 4 0 0 JPI_B_UNAME: LONG ; Returns resultant user name Length 
000000 8 £ 1 JPI_T_UNAME : BLKB 12 ; Returns user name 
Ooe 33 JPI_ITEM_LIST: ; SGETJPI item List for logical Links 
000C 0038 34 «WORD 12 ; Size of username buffer 
0202 OQ03A 35 «WORD JPIS_USERNAME ; I.d. of username parameter 
eee tS 003¢ 36 -LONG JPI_T_UNAME ; Address of username buffer 
0000028" 0040 337 -LONG JPI_B_UNAME ; Address of buffer to return Length 
00000000 944 $35 LONG ; Terminate the List 
00000000 340 -PSECT NET_CODE,NOWRT,EXE 
0000 341 
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68 iz 3s » SBTTL NE TSCONNECT - IO$_ACCESS $010 Procesing | 
000 345 5 | 
00 ry : This routine processes user connect inits or confirms. Parameters and | 
00 4 ; connect block (NCB) are validated. sntornoy ton in the NCB is passed to | 
0000 ‘3 : NETDRIVER in an ICB (Internal Connect Block). | 
000 50 ; Connect Initiates and Confirms are aise ipqutones by the value of the 
8858 2) ; word following the remote process identif 
0000 3¢ : Connect Initiates use a 0 
4548 2 i : Connect Confirms use the supplied value (i.e, the local Link number) 
0000 56 i : 
44 5 ; INPUTS: RS begtcet= Link UCB address 
000 28 3 R3 dress 
0000 59 :- 
0000 60 NETSCONNECT:: ; Parse NCB 
0000 0000 61 -WORD 0 3 Entry 
0002 396 
Q0000004'EF D4 0002 6 CLRL NDI_PTR ; No NDI pointer yet 
00000008'EF D4 0008 $0 CLRL OBI_PTR :; No 0B1 porerer yet 
56 «4 a4 rH CLRL R6 3; No ICB yet 
botp 367 : Get the Network Connect Block (NCB) descriptor 
54 2 B3 0010 369 MOVL  @IRP$L_SVAPTE(R3) ,R4 ; ABD ptr 
55 12 A4 3C 0014 370 MOVZWL <ABDS$C C“LENGTH®ABD$C _NAME>+ABD$W_COUNT(R4),R5 ; NCB lth 
50 10 A4 9 Byte yal MOVAB <ABDS$C “LENGTH*ABDS$SC_ “NAME >+ABD$SW_ TEXT(R4), RO ; cress, 
o tex 
54 80 9E€ QOIC 73 MOVAB (RO)+,R4 : Copy the address and add 1 
001F 74 ; for access mode field 
51 64 3C OOF 75 MOVZWL (R4),R1 3; Get offset to text 
= = 2 St eee Ue ADDL3 Ri, RO, R4 3; Point to device name string 
58 54 D0 0026 377 MOVL R4RB 3; Copy name address 
57 55 00 0029 378 MOVL R ; Copy name size 
55 54 CO BnSE 323 ADDL RacRS 3 Point R5 ent "est NCB byte 
002F 81 > Allocate an Internal Connect Block (ICB) to hold the parse 
b05¢ Hf : of the NC 
1 A3 8F 9A O0¢F 84 MOVZBL #ICBSC LENGTH, R1 ; Set block Length 
O0000000'EF 16 0033 85 JSB ween ALONP 3; Allocate/zero from non-paged pool 
03 50 58 88 ] § BLBS 5$ ; If error detecte 
0118 1 C BRW Actess DONE. S then exit with errer stetus tn fe 
3 3 dO 44 $8 5$: MOVL ; Copy ICB pointer 
3 s : Init ICB values obtained from LNI data base 
be 36 ASSUME CNRSL FLINK EQ 0 
50  QO0000000"EF DO 004 9 MOVL NETSGC_PTR_VCB,RO ; Point at the RCB 
04 A6 78 A0 BO 004 94 MOVW 8 §=© RCBS$W “Tih _TNO(RO) , 1CBSW_TIM_OCON(R6) ; Outbound connect timer 
06 A6 = =—74 AD 0 004 95 MOVW RCBSW_TIM_ A TL me INACT(R6) =; Inactivity timer 
OC A6 63 A B Be 36 MOVZBW RCBS$B_ECL_RFA(RO) , 1CB$W_RETRAN(R6) : Max rexmission count 
OE A6 644A 5 9 MOVZBW A TREE a St ol ES ; Rexmt delay factor 
10 A6 SA B25 98 MOVZBW RCBSB_ECL DWE(RO) ,ICBSW_ DLY_WGHT(R6) ; Rexmt delay weight 
12 A6 CaO. 6B 62 99 OVW  RCBSWTECLSEGSIZ(RO),1CBSW_SEGSIZ(R6) ; Segment size 
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a 
067 4 § ; Enter the local process name using NSP format type 1 and the PID | 
067 4 ; converted to ascii as the counted string. This is the default 
0067 404 ; which may be overridded below, and is compatible with earlier 
O9e7 tbe ; =6releases. 
50 O0000000'EF D0 0067 407 MOVL §NETSGL_PTR_VCB,RO : Point to RCB | 
66 AO 90 O06E 408 MOVB RCB$B_ECL_BAC(RO),- ; 
0000001C EF 071 409 im ; Setup default NDI access 
67 AO 90 0076 410 MOVB RCBSB-ECL_DPX(RO),- ; | 
0000001D'EF Bore 411 B ; Setup default OBI proxy access | 
90 O07E 216 MOVB #NMASC_ACES_BOTH,- ; Setup default internal proxy access 
QOOOO01E "EF 0080 41 : 
wt at eal DO 0085 414 MOVL NETSGC_SAVE_IRP,R2 ; Get current IRP 
A2 6 DO 008C 415 MOVL R6,IRPSL DIAGBUF (R2) ; Save ICB for NETDRIVER 
50 OC A2 DO 0090 416 MOVL  IRPS$L_PIB(R2),RO : Get users PID 
58 08 00 0094 417 MOVL #8 3; Convert it to 8 ascii chars 
57 1406 9E 0097 418 MOVAB ICB$B LPRNAM(R6) ,R7 : Get output pointer 
87 0B 90 0098 419 MOVB = #11, (R7) + ; Total size including counted | 
QO9E 420 3: ascii PID, object and format type 
87 01 B60 OO9E 421 MOVW #1,(R7)+ : Format type 1, object type 0 
87 08 90 OOAT 4 ‘ MOVB 4#8.(R7)+ : Setup count field for P 
57 08 CO QOAS 4 ADDL #8,R7 : Point R7 past end of dst field 
51 04 QOA7 tse CLRL Ri :; Clear high order dividend 
52 50 50 10 7B QOA9 425 10$: EDIV #16,R0,RO,R2 :; Divide by 16, get remainder 
77 0020'C2 90 OOAE 426 MOVB  BIN_HEXASC(R2),-(R7) : Convert to ASCII and store 
F358 F5 008 427 SOBGTR R8,TOS ; Loop for 8 characters 
00B6 428 ; 
0086 $93 ; 
00B6 430 ; Parse the NCB 
00B6 431 : 
0109 30 00B6 43¢ BSBW = PRS_NCB : Parse the NCB 
06 50 5 00B9 43 BLBC : If LBC then error 
0524 0 OO0BC 434 BSBW CHECK ACCESS ; See if connect is allowed to node 
03 50 €8 OOBF 435 BLBS ; If LBS then yes 
0092 «(31 o0ce 436 208: BRW ACCESS_DONE : Exit 
00C 437 30$: : 
00c5 = 438 3 . ; ’ 
00cS 3 439 : If outbound proxy logins are allowed then identify the local 
00C5 440 ; process via format type 2 with the binary PID in the ‘UIC’ field 
Bate red ; and the username as the 12 byte counted string. 
Bae? ces SDISPATCH TYPE=B,0B1_B_PRX - ; Goto ACCESS_DONE if proxy disallowed 
Bote 445 <NMASC_ACES_INCO, ACCESS_DONE>- 
bore +05 4 <NMASC_ACES_NONE, ACCESS_DONE>- | 
0001 rt SOISPATCH TYPE=B, INT_B_PRX = ; Goto ACCESS_DONE if proxy disallowed 
0D1 450 <NMASC_ACES_INCO, ACCESS_DONE>- 
ot $e! f <NMASC_ACES_NONE, ACCESS_DONE>- 
52 00 war a DO O00DD re MOVL NETSGL_SAVE_IRP,R2 ; Get current IRP 
C A2 DO O0E4 454 MOVL.  IRPSL_PID(R2),RO : Get internal PID for process 
00009900" ¢f 16 Ree 455 J GEXGSIPID_TO_EPID ; Convert ko EIR format 
50 00 EE 456 MOVL RO,R : Save EPID in R 


NETCONECT - Process user connect requests 16-SEP-1984 01:17:1 AX/VMS Macro V04-00 Page 10 
V oBO8 NETSCONNECT = IO$_ACCESS $af0 Procesing gr seeped Oa: 1B 83 ENETACP. SREINETCONE CT MAR: 1 . (3 
20 DD OOF! rH PUSHL RO ; Push EPID on stack 
50 E 00 ti $28 Soy ey as 3; Get address of EPID 
ore 460 PIDADR = (RO),- ; EPID of process of interest 
OF6 461 EFN = WNETSC_EFN_WAIT,- : Event flag 
OF6 166 10SB_ = JPI_Q_TOSB>- 3; 10SB 
OF6 46 ITMLST = JPI-ITEM_LIST : Item list for return 
5E Oe CO 0111 464 ADDL #4,SP 3 Pop EPID off stack 
4050 €9 0114 465 BLBC RO,ACCESS bows 3; Br on error 
bi 3h £96 SWAITFR_S EFN = BNETSC_EFN_WAIT; Wait for $GETJPI to finish 
30 ee i £9 1 9 46 LBC JPI_Q_I10SB,ACCESS_DONE ; Br on error 
50 00000028'EF 9A O1 468 MOVZBL JPI-B_UNAME RO : Get string size 
4 13 O12E 46 EQL 40 : If EQL then skip this 
0c 0 91 O1 470 CMPB RO,#12 3; Maximum name in NSP is 16 
iF 61a (01 471 BGTRU 40$ ; If GTRU then out of range 
5 14 A6 YE 01 o6 MOVA I1CB$B_LPRNAM(R6) ,R7 ; Get output pointer 
87 50 O07 81 0139 47 ADDB #7,R0,(R7)+ ; Total size including username, PID, 
4 D 474 ; object type, and format type 
87 9¢ BO 013D 475 MOVW oe: (Rtrs ; Format type 2, object tyes 0 
87 53 00 0140 476 MOVL  R3,(R7)+ : Enter binary EPID in “UIC’ field 
87 50 90 014 477 MOVB RO, (R7)+ ; Setup count field for username 
7E 54 7D 0146 £478 MOVQ R4,-(SP) ; Save NCB descriptor 
67 Q000002C'EF 50 se 0149 479 MOVC3 RO,JPI_T_UNAME, (R7) ; Move the username 
54 BE 7D 0151 480 OVa (SP)+,R4 ; Restore NCB descriptor 
50 600" =O 0134 481 40$:  MOVL $*#SS$_NORMAL,RO ; Setup status 
0157 rh ACCESS_DONE: 
53 Q0O000000'°EF DO 0157 484 MOVL NETSGL_SAVE_IRP,R3 ; Recover IRP address 
11 50 8 QO15E 485 BLBS RO,10 ; Br if successful 
4C AS 550 C 0161 486 MOVZWL RO, IRPS$L_DIAGBUF (R3) ; Save error code for NETDRIVER 
50 56 0 0165 487 MOVL R6,RO ; 5ePy block address for deallocate 
08 13 0168 488 BEQL 10 ; Br if none . 
00000000 "E+ 16 B16A rt a4 ss NE TSDEALLOCATE 3 popatecate the biech 
02 A6 BS 0172 491 108: TSTW 1CB$W_LOCLNK(R6) ; Connect Initiate or Confirm ? 
3¢.)—«s12+~—=éi« 175 136 BNEQ 100$ 3: If NEQ, Confirm (or Reject) 
O17? Aee 
0177 38495 : A zero LOCLNK means that this is a Connect Initiate. Allocate 
tad 138 3 an XWB and LLI and insert them in their respective databases. 
0177 498 ; 
55 1C A3 DO 0177 499 MOVL Reet UCR ER} oR? ; Get UCB address 
51 OC A3 0 178 00 IRPS$L_PID(R3S) ,R1 3; Get PID 
53 008D C6 C O17F 01 MOVZWL ICBSW7REMNOD(R6),R3 3; Get remote node address 
50 07 dO 0184 0¢ #NETUPDS CRELNK,RO : Function code 
eee adh’ 16 + 50 $B CALL_NETBRIVER ; Tell Netdriver 
5 0 pO 0180 504 MOVL R3 3; Get allocated XWB address 
iF «18 18 205 BGEQ 40$ : If GEQ, failed 
048 8F BB 019 507 PUSHR #*M<R3,R6> : Save XWB,ICB 
00000000'EF 16 0196 508 JSB NETSPROC_XWB : Insert XWB, create LLI, etc. 
0048 BF BA 019C 509 POPR #*M<R3,R6> : Recover Xw6,1CB 
E £9 1M 219 BLBC RO,40$ : LBC, XWB was deallocated 
: A3 BO OIA 11 MOVW  § XWBSW_LOCLNK(R3),- : Setup local Link number 
02 A6 im 216 {SBSH _LOCLNK (RO) : 
09 11 «=O1A 51 BRB 100$ 3; Tack common exit 


oo 
ie 
7° 


wm 
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zu 
mu 
oO 
sc 
oo 
>s 
oe 
cy 
m 
n” 


00000000 ' 8F 

AG 
00000000" EF 
00000000'EF 


#SS$_NOLINKS,RO : Se + yy error code 
:® NO LONGER USED 
ACCESS_DONE ; Deal with the error 


| 
NETSGL_ SAVE, IRP,R3 : Recover IRP address 
| 
i 
| 
| 
| 
j 


= > 
o oOo 
Co ww 
ef - 


#NETSM 


NETSGL FLAGS : Give the IRP back to NETDRIVER 


eh ad ach and a aad 
OoOwwwwww>r> 
WN —OOONOUE 


moO PW PP 


i? 


ee —— 
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connect requests 16-SEP-1984 01:17: 


TCONECT - Process user AX/VMS o V04-00 Page 
¥045000 PRS_NCB = Parse Network Connect Block -SEP-1984 02:18: 43 vans F.S SNETCONECT. MAR; 1 . 
if ‘ - SBTTL PRS_NCB = Parse Network Connect Block 
iC : ‘ 
1¢ 8 ; INPUTS: R¢ Ptr to the ICB ; 
1¢ : R Ptr to first byte beyond the NDB 2 
\t ? s Ptr to first byte in the NDB py 
iC ; : ALL other registers are scratch 
1¢ 4 : OUTPUTS: R6 Preserved a 
1C 5 3 RO Status code a 
15 Be: | 
ico. 5 8 PRS_NCB 
FE3B" 30 OIC : BSBW NE TSGETUTLBUF 3; Obtain ee f the utility buf 
SF BF 6° 4 1e3 279 ee hl a : 13 there efixed underscore? 
54 06 1¢B 248 INCL RG : hy h.. it ’ 
| Eh 1CD 43 208: BSBB PRS_NODE ; Parse nodename, get NDI block 
3D 50 9 OICF 544 BLBC RO, TOOS ; Br if error 
3C AG 4 be Q1D2 545 MNEGB #1,1CBSB_ACCESS(R6) ; Flag ‘no access control yet’ 
g2 7 0106 346 BSBW = PRS_ ACCESS : Parse access control field 
H 50 €9 01D9 47 BLBC 0 106 : Br if error 
84 3A3A er 81 g1D¢ 248 cHPW WAS, (RGD+ ; Correct: delimiter 
0240 i$ O1E3 550 BSBW oes OBJECT : Parse the target object name 
26 50 34 O1E6 551 BLBC C,T00$ ; Br if error 
O3A7.  30.—«~O1E9 33 BSBW Rg ND : Parse remainder of the NCB 
20 50 €9 QO1EC 55 BLBC R ; Br if error 
3C A6 FF oF 4 pier eee wee #-{, 1CBSB_ACCESS(R6) ; Any arkess —e yet ? 
; en ye 
9456 36 O1F6 556 BSBW DFLT_ACCESS ; Use the relate 
1350 €9 O19 557 BLBC 100$ : Br if error 
008D c6 83 OIF 338 50$: 1ST 1CBSW_REMNOD (R6) Ad ress SER ? 
020 560 : Else use ihe aa address 
51 00000000 'EF b0 0202 561 MOVL NETSGL_PTR_VCB,R1 ; Get RCB 
E Al B0 8 0 286 MOVW RCBSW_ RooRTR1),- : 
008D C6 0c 56 1CB$W~REMNOD (R6) : Store local address 
05 oF a8 100$:  RSB 
50 O0000°8F 3C 0210 566 200$: MOVZWL #SS$_IVDEVNAM,RO ; Setup error ‘code 
0215 567 RSB : Return error 


c? 
e) 


Ne 
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WO4s000 PRS_NODE = Parse NCB nodename “-SEP-19 2:18: NETACP.SRCIJNETCONECT.MAR; 1 


sy 
VIG 


9 » SBTTL PRS_NODE - Parse NCB nodename 


Parse the node identifier and find the appropriate NDI block. If all 
numerics then convert from decimal to binary and use the NDI with the 
same address and null assoc. Line (if not found then use null NDI). 


If the number is zero or the nodename is unspecified then treat as if 
the local nodename were used. The local node number is always stored 
as a zero in all NDI blocks -= the actual local node number is found 
in the LNI block. 


The parse does not include the terminator which may be ‘' or :: 


“Wee Oe Be Oe Oe Be Ge Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ses 


PID CODA AAA AA AAA AA AAA AAA A AAA A AAA AA AAO 


s 
E 
1 
1 
oH 
16 898 
1 74 
18 he 
0 1 8 
1 78 
18 860 
Be 
021 388 INPUTS: R6 Ptr to the ICB 
021 4 R5 Ptr to first byte beyond the NDB 
8 ; 386 RG Ptr to first byte in the NDB 
021 a9 ALL other are scratch 
021 588 
021 589 ; OUTPUTS: R6 Preserved 
bs! 590 R5 Preserved 
021 23) R4 Advance by bytes parsed 
8 } 38 RO Status code 
021 234 1CB$W_REMNOD Remote Node address -- 0 if its the local node 
021 595 ICB$W_ PATH Path index of Line to use to get to node. 
st 238 NDI_PTR Address of NDI CNF or 0 if none 
021 598 PRS_NODE: ; Parse NCB nodename 
66 B4 021 599 CLRW ICBSW_PATH(R6) ; Assume path zero 
59 06 9A 021 600 MOVZBL S“#NETSC_MAXNODNAM,RO ; Indicate max size of nodename 
58 00000000'EF 0 021 601 MOVL NETSGL_UTLBUF ,R8 ; Point to output buffer 
054D 0 0 O06 BSBW GET_STR_NUM ; Returns: 
0 60 ; R8 name pointer 
0225 604 ; R7 mame string size 
0225 605 : R& advanced by chars parsed 
0225 O06 3 a garbage 
0225 60 ; R2 numeric value if LBS in Ri 
0225 608 ; zero if null string 
0225 609 ; R1 LBC if ascii string 
0225 610 5 LBS if numeric or null 
5 oi) ; RO garbage 
5B O0000000°EF 00 3 18 MOVL NETSGL_CNR_NDI,R11 ; Setup root of NDI List 
SA D4 C 614 CLRL R10 ; Indicate no current NDI 
36 51 9 —E 615 BLBC R1,40$ :; Br if Ascii nodename 
2E 864 1 1 616 CMPB (Ro) wean.” : Is it of the form ‘‘area.node’’? 
1A 12 4 617 BNEQ 20$ : If not, use the number as the node 
4 06 6 618 INCL R4 : Skip the delimiter 
pe 619 PUSHL R2 ; Save area number 
05 0 A 620 BSBW oat STR ; Get the node number within area 
BED? D 621 POPL R ; Restore area number 
8 1 4 6 § BLBS R1,10$ :; If numeric, then it's ok 
50 0000'BF 3c 0243 6 MOVZWL #58 _IVDEVNAM,RO : Setup error code 
01 4 1 4 624 BRW 1g $ ; Report the error 
OA FO 48 625 10$: INSV R5,#TR4$V_ADDR_AREA,- ; Combine area and node number 


+ be CT 


008D C6 
00000004 ‘EF 


07 
0000001C "EF 


008D C6 
0088 C1 


50 0000°8F 


03 50 
0157 


51 _00000000'EF 
52 0080 £6 


WWW WW \ \ OO O00 0000 00 09. 09 09 09 09 09 Ny IPA AAA AAAA MMIII me 


TD OW 9 OM OOW— TF BWI OO PF WM MM Mm mmm mn MN WO NNNNNNU PO HOW VOM 


41 
05 008A 4 
A 


PIPIPIPIPIPININPIDPINININIPIPIPIDIPUDINININININIPINININININIPYNINPINIPINIPINPIPINYIPIPYIPINPYIPINPIPIPYIPIPINPIPIPINIPINIPIPYD Ss ° 


SOOOSOOOOSOOSOCOOSOOOCOCOOOOCO COCO OOCOCOCSCOOOCOOOCOOOCOOOO OOOO OOOOOOOOO 


MMMoOVCVTVCVOMNONOOOoowW 


PX_XAEXRXARAAAAAAAAAA AAA AAA AAA AAAAAOAA AAO 


DPV EPP LEE 
OOWONA UL WN O OD NOAUE WN OOONAUS WOO 


661 


MOVZUL osss. NOSUCHNODE ,RO 
SSEARCH oq’ ndi,s,nna 
BLBS S0$ 


BRW 160$ 
SGETFLD ndi,l,add 


BEQL 
SGETFLD at L,acc 
BLBC 


MOVL 
MOVZUL ICB$W_REMNOD(R6) ,R2 
EXTZV #TR4$V_ADDR_AREA,- 


H 6 
ser connect requests 16-SEP-1984 01:17: AX/VMS 4- 
“oe Parts NCB nodenene mai 4 02:18: £43 Re SN VeoNee 


639 208: 


P 
NETACP. SRC SNE TCONECT.MAR; 1 
#TR4$S ~ADDR AREA,R 


NETSGL EP R_9CB age? ; Get RCB 
RCBSW TABDRGAS) : Is this the local node? 
: § : Br if address not local 
R $ is used to indicate the local node 


The node has been specified by address in the NCB. Attempt to find 


the associated NCB and continue. 


; Use as search value 
NE {SNDI_BY ADD : Find the NDI with matching address 
; R10 = NDI address, 0 if no match 


The node has been specified by name in the NCB. Find the NDI. 
ats not there return an error since we cannot determine the node 
address. 


: Establish error code 

; Find the NDI block 

: If LBS then found 

3; «else return error 

; Get node address - its ve there 
; and its value is 0 for the 


At this point oe = node address (zero if local) 
R10 = NDI block address (zero if none) 


NOTE: At this point, R8 may not be a ‘'normalized’’ address, 
which means that if the area number was not specified, the 
homearea has not yet been defaulted! 


R8 om pererepenes Store the addres 

R1 16,N Save the NDI CNF “petnter 
70$ If EQL then none 

Get access state 

If LBC then not set 
Else override default 


R8.NDI_B_ACC 

See if node is reachable 
NETSGL_PTR_VCB,R1 ; Get RCB address 

; Get node address 

3; If zero, then skip this 

; Get the remote area number 


#TR4$S_ADDR_AREA,R2,RO 
80$ ; If area = 0, then use our area 
RCBSB gg eg - : ane og enforce our area set in 
#TR4$7_A AREA,- de addr, so that returning NSP 
FIRGSS~ ~ADDR “AREA, 1CBSW_ rE NOD (RED 3 msgs match on node addr 
$ ; Chec k node reachability 
RO, RCBSB_HOMEAREA(R1) : Our erest 
skip reachability check 


BBs. ETY(R1) ,#ADJSC PTY. * PHAN: re we an endnode? 
7 If not, do reachability “check 


If the remote node is an endnode, there is only one adjacency 
available. If that circuit has a buffer size larger than the 


no 
ws 


ocal node 
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PRS_NODE = Parse NCB nodename ~SEP-1984 NETACP.SRCIJNETCONECT.MAR; 1 (5) 


Ww 


; executor buffer size, we can gain some throughput by making the 
; Link nonadaptive and offering to use the larger buffer size. 

3 However, we can only do this if we are certain that the target 
$ is one hop away. The only way to do this is to ask NETDRIVER to 
3 find it in the cache. If it's not in the cache, we don't know 

; that it's one hop away, and we don't offer a big buffer. 


PUSHR #*M<R2,R3,R4,R5,R6,R7,RB,.RI,RI0,R11> ; Save registers 
MOVL NETSGL_SAVE_[RP ; Recover IRP address 

MOVL IRPS$L_OCB(R3) ,R5 Get network UCB address 
MOVL R2,R4 Get node address of target 


R1.R2 : Copy RCB address 
MOVL §$#NETUPDS_TEST_ADJ,RO  : Function code 
JSB CALL NE TORIVER ; 


FC 
53 09900 00° 
5 1c 


m—oo°oV7T”7g 
Doooooow 


COOOCOCCOCOCOCOOCOCOCOOCSOOOCOCSCOOOCOO DOO OOOOOoOO 


; Tell Netdriver 
If LBC, target not in cache 


We have ascertained that the target node is one hop away. 
; Join common code to decide whether to offer a larger buffer. 


MOVZUL RCBSW_DRT(R2) ,R8B ; Get ADJ index for designated router 
BEQL 115$ :; If EQL, none: don't bother 


QOOoCCOOO nN NNW MNMMMMMmrmmnrnirn irr 


DNMNMNMNN 7 OAWO]D Nn ee 


BRB 125$ 3; Join common code 
: Node is a router. Test reachability of target. 


95$:  BSBW NETS$TEST_REACH : Is node reachable ? 
BLBC RO,110$ 3; If LBC then no 


: If the remote node is an adjacent Phase II node, then 

; “tie the logical Link to the circuit for the life of 

the logical link, thus making it ‘'non-adaptive’’. 

CMPZV -#16,#16,R1,#ADJSC_PTY_PH2 ; Is the remote a Phase II node? 


s If no 
MOVW R1, 1CBSW_PATH(R6) : Else stuff the path ID 
100$: BRW 146$ : Branch forward 


110$: BRW 160$ 3; Take common exit 


115$:  POPR #*M<R2,R3,R4,R5,R6,R7,R8,R9,RI0,R11> ; Restore registers 
BRB 100$ ; Branch ‘‘forward”’ 


02 51 #10 10 
- 6 
66 51 ° 
007E 1 
0087 =‘ 31 


OFFC 8F BA 
F411 


mMmnDoo—— =m www 


PMPINNIN 2 OOOO 


: If the remote node is adjacent (hops=1), and the Line buffer 
; size parameter is set wi grer than the executor buffer size, 
; then ‘tie’ all logical Links to the circuit for the life 

; of the boptcet Link, thus making it “‘non-adaptive’’. This 

: is so that the logical link can use a larger buffer size 

: for more optimal performance over the circuit. 


1208: CMPV #16,#16,R1,#ADJSC_PTY_UNK i ls the node 1 hop away? 
: not, $ 
PUSHR ere > .n5.n4.n5 06,07 .na’ab anh R11> . Save registers 
: Get ADJ index 
Lookup ADJ & LPD addresses 
; Skip if not found for some reason 


: Save LPD address 
3; Get PLVEC index 


FFFFFFFF 8F 51 #10 10 


125$:  BSBW NET SE IND_ADJ 
RO, 130$ 


NSN NSS SSS SSS SSS SESS SENSES SENSIS FA AA AAA AAAAAAOOOOOo 
WAWAINIANI AAI AIR IPININININIPIDINID 3 9 OP M$ QDOODOOOOOOOOOOO0O0O0O0O0 OM dMcdccDaDCcD 


WO NAMNE WIN @§ OOD NAW EWN O OOONAUE WIN $C OODNAU EWN 9 OONOAUE WN OOONOUS 
. 


MARODWONS VV 


COOOOOCOOSoSoO: 


oO 
nn" 
~” 
a | o 
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7" 
oom -_—n 
LSSS4Ban 


MOVL R6,R 
MOVZBL LPO$B_PLVEC(RS) .R8 
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PRS_NODE = Parse NCB nodename -SEP-1984 NETACP.SR CINE TCONECT. MAR; 1 ( 
58 00000000" FF dO 46 740 MOVL NETSGL. CNR_PLI.RTe Point to Line database 
A 04 74) CLRL ; Search 9 at beginn nq 
ok: SSEARCH eg L 48h3° ol ,plvec ; Search for corresponding Line 
37 50 —=—s«éE9 se 74 : Sk none foun 
61 744 ScETFLD i,t bts ; Get Pulte buffer size, if any 
27 30 E9 of 745 BLB Skip if not set 
58 25 C2 4 4g ho 36 OAAXHDRNSPSC LMAXHOR, RS Compute possible maximum 
; se ment size 
51 eppoogee "tr dO 74 oe MOVL ys PTR_VCB,R1 ; ge pegrese of RCB 
70 Al «58 «6©B1 «(0378 O74 CMPW =s-sR8,, RCBSwW_ECLSEGS1Z(R1) ; check for a "sles (RB) same 
7F §=6—750 i ge- a8 executor buffer size 
17. «+13 44 re BEQL 130$ : if equal, don't force fixed path 
738 : If an end node, DON'T lock the path (don't want to use DR). 
0S OO8A C1 91 : 755 CMPB ncse_ ETY(R1) ,MADJSC_PTY_PH4N ; Is this node an end node? 
10 13 $ 756 BEQL 130$ ; i Qt, yes - don’ : force fixed path 
56 610 . dO : 757 MOVL 4e4(SP estore ICB addres 
20 a5—s«BO ¢ 758 MOVW LPosi spins) 1CBSw_ paTwines S Stuff the. path 1D 
12 a6 58 B80 0390 759 MOVW Re, 1CB GSIZ(R6)~ ; Set Larger segment buffer 
A6 1E BO 0394 £760 MOVW #30,1 as0° rin INACT (Re) 3 ak. inactivity timer (oe aoe symbol) 
OFFC 8F BA baoe 42 130$: POPR FRERSY R3,R4,R5,R6,R7,R8,R9,R10,R11> ; Restore registers 
Baae ree ; If the node entry specifies an explicit output circuit, then 
Bao¢ Pee ; force all 1/0 to use that circuit, overriding automatic routing. 
Sececene" 0 039 766 140$: TSTL NDI_PTR : Ig there an NDI block ? 
1 13 O3A 767 BEQL 1508 : If EQL no, we're done 
O3A4 768 $SGETFLD ndi,s,nli : Get name of node's designated Line 
21 50 €9 Q0381 769 BLBC ; If none specified use pat 
5B 00000000" EF DO 0384 770 MOVL NETSGL_CNR_CRI,R11 ; Get root of DLI List 
A 04 0388 £771 CLRL 10 : Indicate no current CNF 
0380 ak SSEARCH egl,cri,s.nam : Find the CRI block 
OA 50 =«€9 8 4 eS ie BLBC ke :_ If LBC then not found 
66 12 AA #9 CF 774 MOVW CNFSW_ID(R10),1CBSW_PATH(R6) ; Establish the LPD i.d. 
06 13 0303 775 BEQL 170$ : If no LPD for this circuit, error 
50 00° bo 0305 776 150$: MOVL S*#SS$_NORMAL,RO ; Indicate success GE 
0 bape aks 160$:  RSB 
50 O0000°8F 3C 0309 779 170$: MOVZWL #SS$_DEVOFFLINE,RO ; Loop circuit cannot be found 
F8 11 O3DE 780 BRB 160$ 


Ic 
Ic 
Ic 
Ic 
Ic 
Ic 
Ic 
Ic 
Ic 
Ic 
Ic 
Ic 
IC 
Ic 
Ic 
Ic 
Ic 
Ic 
Ic 
IC¢ 
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Vv PRS_ACCESS = Parse NCB access control fi 5-SEP-1984 02:18: NETACP.SRC JNETCONECT .MAR; 1 (6) 
: q § »SBTTL PRS_ACCESS - Parse NCB access control fields 
EO 784: 
E 785 ; Parse the optional access control fields including the begining and 
; f § : ending delimiter (‘' only) 
E 7 3 3 INPUTS: R6 ICB pointer 
E 789 ; R5 Pointer to Ist byte past NCB 
: feo ; R4 Pointer to next byte to be parsed 
: 36 3 ALL other regs are scratch 
E ay 3; OUTPUTS: R6,R5 Preserved 
0 3 795 ; R4 Updated by number of bytes parsed 
134 £8 ; RO Routine status code 
O30 £38 ; ALL other regs are garbage 
ti 800 ; ICBSB_ACCESS, ICBST_ACCESS are setup if the optional 
$43 $3) $ fields are present 
03E0 508 PRS_ACCESS: ; Parse NCB access control fields 
64 22 91 bees 804 CMPB #*a''’' (RO) 3; Access control specified ? 
4A 12 O3E 805 BNEQ 3 If not, branch 
ooo0001e ee 90 b3e3 506 MOVB wine ; Disable proxy access 
4 95 O3EC 808 TSTB (R4S+~ : Skip over delimiter (‘*) 
58 3E A6 YE O3E 809 MOVAB ICBST_ACCESS+1(R6),R8 ; Setup destination field - leave 
O3F 810 ; room for count of first subfield 
59 3F 00 O3F 811 MOVL #ICBSC_ACCESS-1,R9 3 setue size of dest fie 
O3F a6 ; C_ACCESS includes B_ACCESS 
53 00000230'EF 9 Bare AF MOVAB NETSAB_ACC_TAB,R3 3; Setup translation table 
O3FC 815 ; Note that here ICBSB_ACCESS is cleared -- there was a -1 in it to 
O3FC 816 ; signal “no access control yet’’. If the user eaph te rene soot tt iet 
O3FC 817 ; null access control, e.g., node’"'’::taskspecifier, then ICBSB_ACCESS 
O3FC 6818 ; will remain zero. A -1 at the end of the parse would stgnat a need 
O3FC 19 3; to supply the default access control. It is important that null 
O3FC 0 3 access control strings can be explicitly requested by the user 
bare 1 ; $o that the node receiving the connect can supply default inbound 
3: = access info. 
OFC 
3C ag eZ) O3te 4 CLRB ieee ACCESS(R6) ; Init access string size 
58 g 3A 8 FF 5 MOVZBL #3,R1T : Setup loop counter 
03 0 0 0402 6 10$: BSBW GEf TOKEN ; Get user 
FF AB 5 90 0405 MOVB R7,-1(R8) : Enter count of subfield 
57 96 0409 828 INCB R ; Account for count field 
3C A6 7 ee rtd 829 ADDB R7, ICB$B_ACCESS(R6) ; Bump total bytes in strings 
58 Yr. @ 4OF 0 ADOL R7,R8 3; Advance output pointer - note that 
41 1 ; R7 pts to first block after count 
41 ¢ ; for next subfield 
59 =6557 G2 41 SUBL R7,R9 ; Adjust bytes left in buffer 
50 900" F C 041 4 MOVZWL #SS$_INVLOGIN,RO 3; Assume access fields too Long 
7 BI O41A 5 CMPW SHgNETSC_MAXACCFLD.R7 : Access subfield within range? 
13. «1F 0410 $ LSSU 0$ : If GTRU then too Large 
£0 58 «=6FS) COO4I1F SOBGTR R11,10$ 3; Get next strin 
039E 30 0422 8 SBW SCAN_BLANKS ; Scan blanks and tabs 


sm 


- Process user connect requests 217: AX/VM o V04-00 Page 18 
PRS_ACCESS - Parse NCB access ¢ control fi "978 sat 8} 718: 48 INETACE P.S SNETCONECT.MAR; 1 ° (6) 
50 000° 8F af 425 3 MOVZWL #SS$_IVDEVNAM,RO 3; Assume NCB format error 
4 42A 4 CMPB M*Aa'™ (R4)+ : Is next character @ quote ? 
1 42D 4 BNEQ 30 3 titegal NCB if NEQ 
50 , 4eF 4 gps: MOVL S“*#SS$_NORMAL ,RO ; Indicate success 
452 4 $: RSB 
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NETCONECT - Process user connect requests 16-SEP-1984 217: AX/VMS Macro V04-00 Pa 
Vv £800 PRS_OBJECT = Parse NCB target task ident misty 7 REG NETACP.SRCIJNETCONECT.MAR; 1 oh 
r eg »SBTTL PRS_OBJECT - Parse NCB target task identifier 
4 47 : 
4 ‘8 ; The taskname specifier is parsed, the OBI block located, and the 
: 4 : ICB destination task fields setup. The legal taskname formats are: 
4 51: “objectname= 
4 26 3 “objectnumber= 
4 53; ""TASK=taskname 
8 2¢ § "O=taskname 
Oe 2$ : The parse includes the parse of the leading *' but does not include 
r See 3; the terminating delimiter since it may vary. 
b¢ 859 : INPUTS: R6 1CB pointer 
04 60 ; RS Points past NCB 
043 56 : R4 Points to next unparsed byte in NCB 
rk bes ; ALL other registers are scratch 
04 865 : OUTPUTS: R6,R5 Preserved 
04 866 ; RG Updated to point to next unparsed byte 
04 867 ; RO Routine status 
bee $08 ; ALL other registers are garbage 
a 570 : ICB destination task fields are setup 
043 87¢ : OBI_PTR points the OBI CNF 
043 873 ; if taskname specified by number and the 
be are : corresponding OBI entry is not found 
04 876 PRS_OBJECT: ; Parse NCB target taskname 
QOOOOOOC'EF 7C 04 877 CLRQ OBJ_Q_DESC ; Init the object descriptor 
OOOO0O014'EF 7C Oe? 878 CLRQ TSK_Q DESC : Init the task descriptor 
5B OO000000°EF DO O43F 879 MOVL NETSGC_CNR_OBI,R11 ; Setup root of OBI List 
oe 
rr bse : Locate begining of object specifier 
037A 30 0446 4 BSBW SCAN BLANKS : Skip blanks and tabs 
84 22 91 0449 5 CMPB #*A'™" (RG)+ :; Correct delimiter 
6—E 12 044C 6 BNEQ 17$ ; If NEQ no, may be some other field 
ee 
ret 89 : Locate object name or number -- that part before the ‘'="' delimiter 
59 OC 9A Ade 91 MOVZBL S*#NETSC_MAXOBJNAM.RO =; Set max field size 
58 Stitt 7 D $2 38 MOVL NETSGL_UTLBUF ,R8 ; Setup output buffer address 
00000010'EF & 4 458 9 MOVL 4,0BJ Q DESC+4 ; Point to begining of object specifier 
9310 SF 894 BSBW_ «GE f_STR : Get ascii string or binary value 
OOOOOOOC'EF 54 QOOOO0010'EF C ree) i SUBL3 OB 1-0 _DESE*4 RA ~ ; complete eee A aaa by calculating 
3; the strin e 
A 04 rf 39 CLRL RIO" - : Indicate ‘ current CNF 
0 D4 04 38 CLRL RO ; Preset return error flag 
22 51 +E9 047 9 BLBC R1,10$ ; Br unless speqitied by number 
OOOOOOFF 8F ¢6 D1 047 00 CMPL Re #NETSC_MAX_OBJ ; Object # within range ? 
1A 047C 8 901 BGTRU 15$ ; If GTRU then out of range 


N 6 
TCONECT - Process user connect reques 16-SEP-1984 01:17: AX/VMS Macro V04-00 Page 
vo4 PRS_OBJECT = Parse NCB target t task ident att $b 1g 88 ENETACP. SR CINETCONECT.MAR; 1 . 29, 
the 808 
47E 904 : Locate OB1 block. This block is not required if the object number 
rh 4 5 ; was anpanire and it was non-zero. Else it is needed to continue. 
58 52 00 O047E 309 hov ; Setup search key value 
481 208 SSEARCH a obi, ,l,num : Find the matching OBI “block 
2C 50 E88 04 9 BLBS é ; If LBS then it was found 
5A D4 049 910 CLRL ; Else nullify OB! a pointer 
28 611 «049 911 RB Rio : Continue in commo 
49 316 10$ SSEARCH egl,obi,s,nam 3 Find the ore | CNF 
1050 €9 04646 91 BLBC =. RO, 15$ * : If LBC then not foun 
4A9 «914 SGETFLD ob{,L,num : Get the number 
06 50 €8 0486 915 BLBS RO, 208 > Okay if LBS 
00CcB «31 «(0489 «=«916:15$: = BRW 2008 : Else, exit with "no such object” 
OOCE 31 O4BC 917 17S: BRwW 00$ 3; Exit with “invalid device ( 8) name"' 
00000008'EF 5A 00 bees 318 20$: MOVL R10,0B1_PTR ; Setup CNF pointer 
04C6 920 : 
gece $31 ; Make sure an ‘'="" sign follows the object specifier 
O2FA 30 0406 9 2 6sBw SCAN -BLANKS 3; Skip over blanks and tabs 
8 30 91 #0469 924 CMPB #*A'=", (RG)4 : Is correct delimiter there ? 
N 3; If NEQ then incorrect 
EE 12 O4CC 925 BNEQ 178 f i 
ge 
Bree 2 3 3 Setup the ICB remote task desciption 
29 AB «94COKCE = -930 CLRB = ICBSB_DSTFMT(R6) ; Assume format type zero 
2B A6 «6094 «=204D1—Cs«@9381 CLRB ICB$T_DSTD ok oat : NulLlify gee?) object gtring 
28 AB «0020 90s: 04D4 336 MOVB #2,1CB$B_R (R6) 3: Account for ey object type 
2A AG 8658 = 090 «(0408S 93. MOVB R8 1CBSB" ~DS TORI (Re) : Enter * ect 
4A 12 «040C «= (934 BNEQ 408 : If NEQ@ then eyee *is not TASK 
A601 90 rh oa? MOVB Ys ye a : Format Soon 1 
53 00000130°EF 9 O4E2 936 MOVAB neteas JTRAN : Setup translation table 
2C A6 «GE «(04E9 )=— (937 MOVAB  ICB$T tT R8 ; Setup dest. string po pointer 
59 10 00 O4ED 938 MOVL #ICBSC_RPRNAM-4, Ro" : Setup size of des 
04FO0 939 : for DSTFMT,D icy ig Peo 
04FO 940 3: count and ICB B$_R NAM fields) 
O2AF 0 Bees 941 BSB GET 10 TOKEN : Scan blanks and wee Saeed 
00000014'EF 57 D O4F 2e6 MOVQ Q_DES : Setup taskname descriptor 
2B A6 «6570 «690 «=(O4FA 94 MOVB R7 Tekst- _DST SSC(R6) 3; Store taskname length in ICB 
03 12 O4FE 944 BNEQ of ; If not null then ood task i.d. 
00% 1 28 945 BRW ws ; Else, Si reges els 
A : ADD #5,R7,1CBSB_RPRNAM(R i Set tota BRNARS engt 
28 A657 3 1 946 30$ B3 7,1CB$ (R6) l l A 
ee 
23 Ben : The connect is to object number 0. 
35 951 : Since there may be Bony OBI entries for object number 0 (TASK), 
50 826 ; see if there is one which matches the qualifying taskname. If so, 
3 use it instead of the generic ‘ 
2 327 it i d of th ic TASK OBI 
A oD 30 955 PUSHL R1 ; Save the TASK OBI 
A 04 50A 929 CLRL R1 ; Nullify OBI CNF pointer 
Beye 95 SSEARCH on gbi.s.nam ; See if there's an OBI with this name 
0350 €9 0518 958 BLBC ~=—_-rRO, 858 : If LBC then no 
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r connect requests 16-SEP AX/VMS Macro V04-00 Page 
arse NCB target task ident g7SEp =| 3h 33] 5:43 ENETACE P.SRCIJNETCONECT.MAR; 1 ° 
MOVL R10, (SP) ; Overly the OBI pointer on the stack 
POPL OBI_PTR : Update the official OBI pointer 
: Setup the proxy login state for this OBI 
MOVL OBI. PTR,R10 ; Get the OBI 
BE $~ ; If EQL then none 
SGETFLD obi,l,prx : est hy login state 
BLBC ; C then none 
MOVB ‘0B! _B_PRX $ fist override the default 
: Setup the remote user i.d. (RID) for display purpeses, If t 
; target number is zero then use the taskname from the NCB. itSe, 
3; use the object name from the OBI -- if no OBI use the object 
; name/number from the NCB. 
BUSHR wencrt »R2,R3,R4,R5> ; Save regs 
MOVaQ bese, R? ; Setup taskname descriptor assuming 
: object type 
MOVB case. _DSTOBJ (R6) ,RO ; Get object number 
BEQL : f EQL then use taskname 
MOVQ OBJ_Q_DESC,R7 ; Get object Nenereumher descriptor 
MOVL OBI~PTR,R10 ; Get OB] pointe 
BEQL 80$~ 3; If EQL none, use object name/number 
: from NCB 
SGETFLD obi,s,nam : Else use object name from NCB 
MOVB R7,1CBS$B RID(R6) ; Setup text field length 
MOVCS R7,(RB),R*A 3; Move the text 
a1tBsc AID, 1cagt RID(R6); 
POPR #*°M<R17R2,R3,R4,R5> ; Restore regs 


: Done, return to caller 


MOVL § S*#SS$_NORMAL,RO 
RSB 


MOVZWL 9 #SS$_NOSUCHOBJ ,RO 
RSB 


Indicate success 
Done 


Indicate error 
one 


Assume NCB format error 
Done 


MOVZWL #SS$_IVDEVNAM,RO 
RSB 


55 
84 
50 


0000" 8F 
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-SBTTL PRS_END = Parse the remainder of the NCB 


v04-00 
NETACP.SRCIJNETCONECT.MAR; 1 


Find the Link 1,4. and optional data. If none specified then this is 


a ‘‘connect initiate’. 


: eee ths seee (R4 => next input char, R5 => past end of NCB) 
p 


RS_END: ; Parse remainder of the NCB 


PUSHR #*M<R4,R5> 
MOVC RI, (R45 , 1CBSB_DATA(R6) 


POPR #*M<R4,R5> 


: Check to see if the NCB is terminated correctly. This means that 
; we must be at the last character in the NCB and it must be a double 
3 uote. However, if the user is doing a ‘'transparent’’ $ASSIGN to 
YS$NET, then there is some garbage containing local the task 


Save critical regs 
Move optional data 

Get next character in NCB 
Restore regs 


CLRB ICB$B_DATA(R6) ; Assume no optional data 
CLRW ICB$W_LOCLNK(R6) 3; Assume connect initiate 
BSBW SCAN BLANKS + Scan past tabs,blanks 
CMPB #*A''7"", (RG) : Is the ‘tail’ of the NCB here 
BEQL. «865$. ; If EQL yes, parse it 
CMPB WA" (RG) : Is NCB delimiter next? 
BEQL 10$ > If EQL yet check for end of NCB 
BRW 20$ ; Else NCB is malformed 

5$ TSTB (R4)+ 3: Skip over ‘'/' 
MOVW (R4)+ ICBSW_LOCLNK(R6) ; Enter local link id 
CMPB wea’ (RG) : Is NCB delimiter next ? 
BEQL 10$ : If EQL yes, chk for legal NCB 
MOVZWL #SS$_TOOMUCHDATA,RO ; Assume error 
MOVZBL (R4),R1 ; Get optional data count field 
CMPB R1,#16 : Check Length of optional data 
BGTRU 208 : Br if too long 
INCL R1 : Include the count field 


specification after the optional data -- ignore it. 

The actual test used to persty a correct NCB is to check that there 
; s a ‘*' character somewhere between the current pointer and the 
; end of the NCB. This is simple and more forgiving of user error. 


Are we beyond the end ? 


BGEQU§ 2 : If so, NCB format error 
CMPB WAT, (RG)+ : Is NCB delimiter there ? 
BNEQ : If not, continue search 
pov S“#SS$_NORMAL ,RO ; Indicate success 

20$: poset, #SS$_IVDEVNAM,RO ; Signal illegal NCB 


TCONECT - Process user connect requ 16-SEP-1984 01:17:1 AX/VMS Macro V04-00 Page 
Whuc 00 PRS_END = Parse the paaslaier - of the NCB g- -SEP=- =138% 83 1big8 ENETACP. SREINETCONECT MARS 1 ° 
5E3 1055 CHECK ACESS: ; See if access is allowed to node 
53 00000000'EF D8 Ha 1 § NETSGL_SAVE_IRP,R3 ; Get the IRP address 
1 E SEA 1 BBS #PRVSV_OPER,- If user has OPER then the connect is 
3E 40 A 2kC 28 TRPSO AAT _PRVMSK(R3), 100$: sivays allowed -- bypass all checks 
SEF 1060 : 
SEF 1061 : Check to see if the connect is allowed based on the state of the 
SEF 1996 ; local node. 
OSEF 106 3 
OSEF 1064 3 state Allow connect if 
OSEF 1065 $0 wweeeess 86 se cwececeoecccee 
Beer 1396 3 ON eiways 
SEF 106 ; RESTRICT if this is a connect initiate, or 
OSEF 1068 ; f the partner node is the local node 
OSEF 1069 3 SHUT never 
OSEF 1070 : OF F never 
OSEF 1071 : 
OSEF 1976 : 
50 O0000000'EF DO OSEF 107 MOVL NETS$GL_PTR_VCB,RO ; Get the RCB address 
50 61A0 9A OSF6 1074 MOVZBL RCB$B_STI(RO),RO ; Get the local node state 
50 01 91 OSFA 1075 CMPB THT _STA_N,RO : Is gl tf 
10 13 OSFD 1076 BEQL 10$ : If EQL o local restrictions 
50 02 91 OSFF 1077 CMPB S*#ACPS$C_STA_R,RO : Is state *F RESTRICTED - 
2D 12 0602 1078 BNEQ 200$ : If NEQ no, connect not allowed 
008D C6 BS 0604 1079 TSTW 1CB$W_REMNOD (R6) : Is it for the local node? 
23 13 0608 1080 BEQL 100$ ~ 3; If EQL yes - connect OK 
02 A6 BS O60A 1081 TSTW 1CB$W_LOCLNK (R6) ; Conne ct initiate? 
22 12 060d 19e6 BNEQ 200$ : If NEQ no = connect not allowed 
O60F 1083 10$: : 
O60F 1084 3 
O60F 1085 : Check to see if the connect is allowed based on the local access 
O60F 1086 3 restrictions set for the remote node. 
O60F 1087 . 
O60F 1088 $DISPATCH TYPE=B,NDI_B_ACC - ; 
O60F 1089 <- 
O60F 1090 <NMASC_ACES_NONE, 200$> - ; No access allowed 
O60F 1091 <NMASC_ACES_ -INCO, 60$> - ; Inbound access allowed 
060F 1036 <NMASC_ACES_OUTG, 50$> - ; Outbound access allowed 
a4 3 ¢ 4 <NMASC_ACES_BOTH, 100$> - ; ALL access allowed 
OC 11 O61F 1998 BRB 00$ ; Code is not recognized, ignore it 
02 A6 BS 0621 1096 50$: TSTwW Kg LOCLNK(R6) : No inbound access. Connect confirm ? 
OB 12 0624 1097 BNEQ 3; If NEQ then yes, access not allowed 
05 11 06 g 1398 BRB 100 ; Else report success 
02 A6 «6©BS O06 1099 60$: TSTW 1cebu_ LOCLNK(R6) : No outbound access. Connect initiate? 
04 13 0628 1100 BEQ 00$ ; If EQL then yes, access not allowed 
50 00° 00 062d 1101 100$: MOVL S“*#SS$_NORMAL ,RO ; Indicate success 
05 0630 11 ¢ RSB 
631 11 
631 1104 2008: =; : 
631 1105 : The connection is not allowed. Tell NETDRIVER to terminate the 
: 1 $ ; link. Return an error message to our caller. 
53 O2A 3 631 11 3 MOVZWL ICBSW_LOCLNK(R6) ,R3 : Setup local Link number 
‘ C 0635 11 MOVZWL #NETSC_DR SHUT Re : Setup disconnect reason 
51 00000000'EF o6 638 1110 MOVL  NETSGLSAVE_IRP,R ; Get user's IRP 
51 OC Al DO O63F 1111 MOVL  IRPSL_PID(RT), at’ : Setup user's PID 


aN 
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TCONECT - Process user connect requests 16-SEP-1984 01:17: AX/VMS Macro V04-00 Pa 5 | 
vou DFLT_ACCESS = Get default eccess control -$FE= 1382 B31 :88 NETACP.SRCINETCONECT.MAR; 1 oe d 7 
Get 1116 -SBTTL DFLT_ACCESS = Get default access control | 
Sc 1418 | 
Gut 1113 : Use the default information from the NDI block. | 
64F 1121 :- 
Se ne 0 BEE LIE ETE icaee accessing) I Wein aceses sition Lanecy | 
; Init access string len 
eed QOOOOOIO'EF 9 eee 1124 MOVAB NONPRY_TAB,ACC_TAB 3; Assume no privileges needed | 
a « 5A on 1) 65D 1125 MOVL O81 PTR.R1O ; Get OBI CNF pointer 
0107 i 686 1 § Bru 1 : If NEQ then OBI exists 
669 1128 10S: GETFLD obi,l,lor : Get the high order priv mask field 
OOO0O000'FF 58 dO 0696 11 : OVL 3 Sné186L_uTLeuF ; Save the t+ order Oriorit mask 
067D 1130 S$GETFLD obi,l,hpr ; Get the low order priv mask field 
SA 00000000°EF 00 068A 1151 nov. NETSGL Greeur eto : Point to the utility buffer 
04 AA 8 00 309) 1} ¢ MOVL RB,4(RTO) ; Save the high order priority mask 
0695 1134 ASSUME PRVSV_NETMBX LT 32 
4 p038 1 5 ASSUME PRVSV_TMPMBX LT 32 
00 6A OF €5 0695 11 $ BBCC qeeveeavoreees 101 at *Gne ; Zero non-priv bits 
00 6A 14 5 0699 1138 20$: BBCC #PRVSV_NETMBX,(R10),50$ ; 
50 4 069D 1139 30$: mMOVa (R10) ,RO ; Get required privilege mask 
% 23. 13 Q6A0 1140 BEQL 4 3; If EQL then none needed 
53 Q0O000000'EF 00 pone 1141 MOVL NETSGL_SAVE_IRP,R3 ; Get current IRP pointer 
50 40 A3 CA 0O6A 1186 BICL {5090_AT_PROMSK IRS) .AO ; Test for required privileges 
1 12 Q6AD 114 BNEQ $ ; Br if user lacks privilege 
51 44 A353 CA O6AF 1144 BICL RPSQ_NT_PRVMSK+4(R3),R1; Test high order part of mask 
OD 12 0683 1145 BNEQ ; Br if user Lacks privilege 
O0000000°EF 00000000'EF 4 bee8 1138 _— 1) Fh aalaatae as 3 pe for priv access 
3; Continue 
O0AS_ «3311 pote 1148 35$: BRW 100$ : No default access control 
Se 
06C5 1151 : Get NDI to use for default access control. If no NDI is 
bere 1136 : currently specified then there's no default. 
5B 00000000'EF DO 06C5 1154 40$: MOVL NETS$GL_CNR_NDI,R11 ; Get NDI root pointer _— 
5A 00000004'EF if oct 1155 MOVL N 1_PTR,R10 ; Get NDI CNF pointer Nye 
- 5 eet 1128 BEQL 35$ : Br if no NDI block Paty: 
6D 1128 : If the NDI is a te | 
605 115 ; loopnode NDI and its access control is null, use the access control 
6D5 1160 ; of the NDI with the matching address and which is not a loopnode 
605 1161 8 a gp ey this can onty be the local NDI). If there is no such 
pede 1166 : NDI then there is no default access control. 
605 1164 $GETFLD agi ¥ Loo : Loopnode ? 
39 58 €9 O6E2 1165 BLBC RB, 608 : If loopnode, 
59 Q0000000'FF DO 06E 1166 MOVL  @ACC_TAB,R9 : Setup first field (user) id 
OO00090"EF 16 O6EC 116 JSB ss CNFSGET_FIELD ; Get the USER_ID field | 
9 50 3 6F2 1168 BLBS R : If LBS then non-null, use it 
58 008D £6 C O6F 1192 50$: MOVZWL ICBSW_REMNOD(R6) ,RB ; Get node address 
A D4& Q6FA 1170 CL 4 ; Indicate no current C 
oft 1171 SSEARCH eql,ndi,l,add 3 
5¢ 50 €9 0708 1172 BLBC ~— RO, 100 : No default access if no ND 


NF 
Find CNF with matching angrent 


G6 7 
ser connect requests 16-SEP-1984 01:17: AX/VMS Ma v04-00 P | 
. % Breer obe 02:18:98 P. SREINETC age (48) 


we] COMET - Process u 
V DFLT_ACCESS = Get default access control 5- NETACP.SRCJNETCONECT.MAR; 1 | 
70E 1173 SGETFLD ndi,v,loo 3; Loopnode ? 
4¢ 58 E€8 Q71B 1174 BLBS RB 1068 ; If LBS its a loopnode - can't use it 
71iE 1175 ; Loop nodes are stored in the List 
71E 1126 3; last and so there's no use searching 
7iE 117 t any further 
71E 1128 60$: 3 
71E 117 $ If this connect is for the local node, and we have determined 
0 71E 1180 ; that the non-privileged account is to be used, then don't provide 
71E 1181 3 any default outbound access control, but instead, rely on the 
7i—é 11 § 3 «access control being defaulted on the incoming side. This is 
ne 1 ? 3 to avoid conflict with the proxy mechanism for executor connects. 
12 AA BS "al 1185 tSTw Cor ou _TOCRIG ; Is this the local node? 
10 12 0721 11 § BNEQ 0$ 3: Skip if not 
50  QO000010'EF 9E& 0723 11 MOVAB NONPRV_TAB,RO 3; Get address of non-priv param table 
50 eeeeeed | D1 of A 1188 CMPL ACC_TAB,RO 3 Is connect non-priv or privileged? 
7 13 0731 1189 BEQL : If local non-priv connect, no default 
07 1190 70$: 3 
07 1191 : 
8 1338 ; Move access control strings 
30 «6B fi 1194 PUSHR  #*M<R4,R5> ; Save critical regs 
53 3D A6 9E 735 1195 MOVAB ICBST_ACCESS(R6) ,R3 3; Get output pointer 
59  00000000'FF 09 158 1196 80$: MOVL @ACC_TAB,R9 : Get field i.d. 
1 740 1197 BEQL 90$ 3; Done 
00000000‘ EF 4 C0 Ores 1198 ADDL #4,ACC_TAB ; Bump the pointer 
09008000" Es 16 0749 1199 JSB CNESGET FIELD ; Get the string descriptor 
3C A6 7 80 O74F 1699 ADDB R7,1CB$B_ACCESS(R6) 3; Update total size 
CA6 96 0753 1201 INCB _ICBS$B_ACCESS(R6) : Account for count byte 
40 8F 91 0756 1 8 CMPB #ICBSC_ACCESS,- ; Can it fit ? 
3C Ab 0759 120 ICBSB_ACCESS(R6) : 
11 19 0O75B 1204 BLSS 00$ :; If LSS no, must be bug 
83 57 9 075D 1205 MOVB R7,(R3)+ ; Enter count field é 
dD? «613 0760 1906 BEQL 80$ ; If EQL then get next string 
63 68 57 28 0762 1207 MOVC3 R7,(RB),(R3) ; Enter string 
D1 «11 0766 1208 BRB 80$ > Loop 
30 BA th 4 : Fs 90$: POPR #*M<R4,R5S> ; Restore regs 
50 00° DO O76A 1211 100$: MOVL S“#SS$_NORMAL ,RO ; Always successful 
05 0760 1 1 RSB 
O76E 121 
O76E 1214 2008: BUG_CHECK NETNOSTATE,FATAL 3; Bugcheck 
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CT - Process 
GET_STR_NUM = Get next numeric token SEP=19 2:18: NETACP.SRCIJNETCONECT.MAR; 1 
772 «1 16 -SBTTL GET _STR_NUM = Get next numeric token 
oS S18 i 
772 «#1 i ; The next string is scanned until the first non-numeric, non-alphabetic 
772 «#1 y ; ascii character. ALL lower case alphabetics are converted to upper 
772 «#1 3; case. Leading blanks and tabs are skipped. If the string contains 
772 «#1 § 3 all ascii numeric characters, it is converted from its ascii-decimal 
a } i : form to binary. 
772 1225 ; INPUTS: R9 Maximum allowed output Length 
ad ! § : R8 Pointer to input buffer 
a ! 8 : R7,R3-RO Scratch 
772 1230 ; OUTPUTS: R7 Number of characters in output buffer 
772 «#1231; R4 Pointer to next unparsed byte in input stream 
772 «#1 § ; R3 Garbage 
tae 1 $ R2 Converted ascii value if R1 has low bit set, 
772 #1234; zero if R7= 
0772 1235 ; Ri Low bit set if string was all numeric or null 
or? ! § : RO Garbage 
one \ HS : ALL other registers are preserved. 
0772 1240 GET_STR_NUM: ; Get string or number 
53  00000030'EF 3 0772 1241 MOVAB NETS$AB_UPASCNUM,R3 ; Setup translation table 
gf 10 0779 1 5 BSBB GET_TOREN : Get the translated strin 
g D4 0778 124 CLRL R¢ ; Zero string converted value 
51 5 00 077D 1244 MOVL R7,R1 3; Any characters in moved ? 
1A 078 1245 BEQL «15 : Br if none moved 
53 58 00 07 1246 MOVL R8,R3 : Get pyr to first character 
50 83 30 83 0785 1247 10$ SUBB3 = #*A"'0""", (R3) +, RO ; Get binary of character 
14 19 0789 1248 LSS 20$ : Br if non-numeric 
09 50 91 O78B 1249 CMPB RO,#9 ; Test upper bound 
OF 14 O78E 1250 GTR 208 : Br if non-numeric 
50 50 9A 1444 1251 MOVZBL RO,RO 3; Zero gerbege bytes 
3 OA C4 0793 1 3 ULL #16,R2 : Multiply old value by ten 
5 50 CO 0796 125 DDL ao ote 3 and add new increment 
E9 51 =F5 0799 1254 SOBGTR R1,10$ ; Loop for each character 
51 D6 O79C 1255 15$: INCL R1 ; Flag ‘all numeric string’ 
05 O79E 1628 RSB 
51 04 O79F 1257 208: CLRL R1 : Flag ‘non-numeric’ 
05 O7A1 1258 RSB 
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$s 
a OKEN et next token -SEP-1984 NETACP.SRCIJNETCONECT.MAR; 1 2) 
7A2 1 9 -SBTTL GET_TOKEN = Get next token 
in 1360 
7A2 1 : : The input stream is scanned until a delimiter is found. A delimiter 
7A2 1264 ; is defined as any character which the translation table translates 
7A2 1265 ; to a zero. The Taput pointer is advanced up to, but not past, the 
fA : $6 ; delimiter. ALL leading blanks and tabs are skipped over. 
7A0 1 68 : INPUTS: R9 Max size of input string 
7A2 1 § 3 Re Address of buffer to receive output 
7A2 1270; a cratch 
7A2 1271; R ICB pointer 
7Ae 1 i : 8 Points past NCB 
7A2 1275; R4 Next character in input string 
7A2 1274; R3 Translation table address 
eA : g : R2-RO Scratch 
O7A2 1 8 : OUTPUTS: R7 Number of characters in output buffer 
O7A2 1 re : RG Points to fiwst unmoved character 
Bra ! 4s : R2-RO Garbage 
O7A ei : ALL other registers are preserved. 
7Ae 1 Hf GET_TOKEN: ; Move input up to delimiter 
1F 10 QO7A2 1284 BSBB SCAN_BLANKS > Skip blanks and tabs 
2. 7A4 1285 PUSH 3; Protect regs form MOVTUC 
— wa, ws. & pre 1286 SUBL R4,R5,R0 ; Get bytes left in input stream 
68 59 63 00 64 50 2F O7AA 1 87 MOVTUC RO, (R4),#0,(R3),R9,(R8) : Translate/move the string 
54 51 09 0781 1288 MOVL 1,R4 ; Get input stream pointer 
57 55 58 C3 07B4 1289 SUBL3 R8,R5,R7 ; Get # of bytes moved 
55 8EDO ares 1290 POPL RS ; Recover regs 
05 yee } 4 t RSB 
orat ! $8 : SCAN_BLANKS = Skip over blank and tab characters 
p7eC : : The input stream is advanced to the first non blank/tab character. 
orBt 1 3 : INPUTS: RS Points to first character beyond input stream 
7BC 1298 ; Points to next character in input stream 
O7Bt ! +4 ; OUTPUTS: R4 Points to next non blank/tab character in input stream 
o7B¢ 1 o1 . -ENABL LSB : 
55 54 01 O7BC 1 § 10$: CMPL R4,R5 ; At the end of input stream ? 
10 1& O7BF 1 BGEQU 208 : If so, branch 
54 D6 tt ! ¢ INCL RG ; Advance input pointer 
7c3 «(1 $ SCAN_BLANKS: ; Skip over blanks and tabs 
64 95 O7C3 1 “ TSTB (R4) : Is character null? 
F5 #13 #O7CS 1 3 BEQL 10$ : If so, skip it 
64 20 91 O7C?7 130 CMPB #SPACE, (R4) ; Is character a space ? 
FO 13 O7CA 1310 BEQL $ :; If so then loop 
64 09 91 O7CC 1311 CMPB #TAB, (R4) : Is it a tab ? 
EB he ocr ! \§ 208 peel 10$ : If so then loop 
702 1314 -DSABL LSB 
702 1315 
7D2 1316 .END 
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Sati = Praceea wnor cormact roqets © CASTS SIESHS ERNIE estteNRalls aay "Ol 
y 
W_SEGSIZ . 12 
oF once mat tittittt IeBSucT IA IHACT = O06 
“TRIMSG ~ 0 aay eae E 1ER 03 
$$ TRGMSG ° TRPSL“D1AGBUF = 4¢ 
ABOSC_LENGTH . IRPS$L PID = gt 
DSC _NAME . IRPSL-SVAPTE © ¢ 
ABOSA_ COUNT s Q [RPSLIUCB . 09 BR) 
RPSG-NT_PRVMSK © 
REEERS pone 8 ao 8 8$ PTS OSzuane = $000 
Arai : HBSS saa wie 
ACPSCTSTAZI = 0000000 JP17TUNARE gogoagge ROS 
ACPSC_STA_N re 0 LPDSB-PLVEC = 444 
AE STA = $088 tice = BORE 
ADJSC_PTY_PH2 . 900000 CSBSB R_CXBCNT = 00000028 
ADJSC_PTY_PH4N . Peer erte C SBSB-R7CXBQUO e 90000 9 
str ae * 99000020 R 02 LSBSB~SPARE = 0000002A 
BIN_HEXASC ‘s 44 4 44 LSBSB_STS = 90000028 
eee a oa 
BUGS_NETNOSTATE sansseeet 04 Ritter ey = 00000000 
c  eeeeeeee X04 LSB$B_X-CXBCNT = 0000000F 
eA Me TOR IVER Q00005E3 R04 L$B$B-X~CXBQUO = 0000000E 
CHECK ACCESS eeeeeeee Xx 04 LSB$B_X~PKTWND = 0000000C 
CNFSGET FIELD eereeeee § X 04 LSB$B_X" REQ = Q000000A 
CNFSKEY SEARCH A 00000012 LSB$L~ CROSS = Hat $8 
de = 00000000 LSBSL-R_CXB = 00000020 
CNF$_ADVANCE = 0000000 LSBSLIR-IRP = 0000001C 
CNFS_QUIT 2 9000000 LSBSL_X~CXB = 00000018 
ENESTAKE “PREV = 99000001 LSBSL-X-IRP me 494949 
CNRSC FLIAK = 00000000 LSBS$L-X~PND = 09000010 
DFLT RCCESS mereetey ay be ee tise ee = 99000040 
id a 00000772 R04 LSBSM=LI = 90000001 
GETSTOREN = Sooooese © SBS SPARE = 90000004 
CBSB-DATA = F088 00 rE atte = 00000005 
ICBSB_DSTFMT me ttt SH CSBSV"EOM = 00000006 
I1CB$B_DSTOBJ — 0000014 LSBSV_LI = 00000000 
1CBSS LP RNAR = 0000009 LSBSV~SPARE = 00000001 
1CBSB_RID . 3 SBSW_HAA = RoR OR Oe 
1CBSB_RPRNAN = Ronens LSBSW~HAR = 6 
ICBSC_ACCESS 22 SBSW” HAX s 000 8 6 
ICBSC_LENGTH ns st LSB$W HNR = 88 ° 4 
CBSC"RID = 00000014 LSBSW—HXS = 90000004 
CBSC_RPR D LSBSW~LNX = Rononnds 
ICBST_ACCESS s LSBSW-LUX = 0 0 
ICBST~DSTDSC . 8 NDI B7 Q00001¢ R 8 
ICBSW_OLY FACT ; ° NETSAB ACC TAB 0 R 
ICBSW_DLY WGHT me NETSAB OBJT 8 R 
1CBSW~LOCC : NETSAB-UPASCNUM 030 RG 
CBSW"PATH : D NETSALONPGD_Z sosoanes wee ht 
IEBSUTRETRAN = 0000000C NETSCONNECT 00000000 RG 
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NSPSM_FLW_CHAN = 0 NSPSV_FLW_XOFF 
NSPSM_FLW_DRV = F WSPBV_ELW_XON 
NSPSM_FLW_INT 2 ¢ NSPSV_INF_VER 
NSPSM_FLW_INUSE = NSPSV_MSG_INT 
NSPSM_FLW_LIS = 4 NSPS$V_MSG_LI 
NSPSM_FLW_| = Web ov SG 3F1 
NSPSM_FLW_SP1 = NSP$V_SRV_01 
NSPSM_FLW_SP = 004 NSPS$V_SRV_EXT 
NSPSM_FLW_SP 2 $ 5 NSPSV_SRV_FLW 
NSPSM_FLW_XOFF = 1 NSPS$V~SRV"SP1 
NSPSM_FLW_X = NSPS$W_OSTCNK 
NSPSM_INF_VER z NSP$W_SRCLNK 
NSPSM_MSG_INT = 0B1_B8- PRX 
NSP SA _RSG_). = 0000001 OBI-PTR 
NSPSM_SRV_01 = 4 OBJ-Q_DESC 
NSPSM_SRV_EXT = 000 8 0 PRS_ACCESS 
SPSM_SRV_ = 0000000 PRS_END 
NSPSM_SRV_REQ = aia 4 PRS_NCB 
NSPSM_SRV~SP1 = 0000007 PRS_NODE 
NSPS$R_QU = 00000000 PRS_ OBJECT 
NSPSS_ACK_NUM = 0000000C PRVSV_NETMBX 
NSP$S_ACK-SP2 = 4g PRVS$V_OPER 
NSP$S_DATA_SP = 0000000 PRVSV_ TMPMBX 
NSP$S_FLW_CHAN = 00000002 PRV_TAB 
NSP$S_FLW_DRV = 00000004 RCBSB_ECL_DAC 
SP$S_FLW_MODE = aed: RCB$B_ECL_DFA 
NSP$S_INF_VER = 0000000 RCB$B_ECL_DPX 
NSP$S_MSG SP1 = 00000004 RCB$B_ECL_DWE 
NSP$S_NSPA = 00000005 RCB$B_ECL_RFA 
NSPS$S_ QUAL = 00000005 RCBSB_ETY 
NSP$S_QUAL_. = 00000002 RCB$B_HOMEAREA 
NSP$S_QUAL_ALTFLW = 00000001 RCB$B_STI 
NSP$S_ QUAL |! = 00000001 RCBSW_ADDR 
NSP$S_QUAL_ = 00000001 RCBSW_DR 
NSP$S_QUAL_ INF = 00000001 RCB$W_ECLSEGSIZ 
NSP$S_QUAL_MSG = 00000005 RCBSW_TIM_CNO 
NSP$S_QUAL~ SRV = 00000001 RCBSW-TIM-IAT 
NSP$S_SRV_ = 0000000 SCAN_BLANRS 
NSP$S_SRV_FLW = 0000000 Sldess 
NSP$S_SRV_SP1 2 aise 4) SPACE 
NSPS$V_ACK_NAK = 0000000C SS$_DEVOFFLINE 
NSPS$V_ACK_ = 30 SS$—INVLOGIN 
NSPSV_ACK— = D SS$_IVDEVNAM 
NSP$V_ACK- VALID = F SS$_NOLINKS 
NSPSV_DaAT = 5 SS$_NORMAL 
NSPSV_DATA__ = $ $ SS$_NOSUCHNODE 
NSPSV_DATA_OVFW z SS$"NOSUCHOBJ 
NSPSV_DATA z 9 SS$- SHUT 
SP$V_FLW_CHAN = SS$- TOOMUCHDATA 
NSPSV~FLW_DRV = 4 SYSSGETJPI 
SPSV-FLW_ = 5 SYSSWAITFR 
NSPSV_FLW" INUSE z 4 TAB 
NSP$V_FLW_LISUB = TRSC_MAXHOR 
NSPSV_FLW~ s TRSC_NI_ALLEND1 
NSPS$V_FLW_SP1 z TRSC_NI_ALLEND 
NSPS$V_FLW "SP = $ TRSC_NI_ALLROU 
NSPS$V_FLW_SP = 0 TRSC_NI_ALLROU2 
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XWBSW_DLY_WGHT = 00058 

XWBSW"ELAPSE = 4A 

XWBSURFLG = 1C 

$W_LOCLNK = 3 
XWBSW_LOCS1Z = 0 4 
$W_PATH = ¢ $ 2 

XWBSW_PROGRESS = 00 

XWBSW REF CNT = 0000000C 

XWBSW_REMLNK = BS 003C 

XWBSW—REMNOD = 0000003A 

XWBSW_REMSIZ = 00000042 

XWBSW_RET = Boo noe. 

XWBSW_R_REASON = 8 00044 

XWBSW"STZE = 00000008 

XWBSW_STS = 0000000 

XWBSW_TIMER = 0000005 

XWBSW-TIM_ID = 0000004 

XWBSW_TIM !NACT = 0000004C¢ 

XWBSW"X REASON = 00000046 

XWB$2" NBC = 00000084 

poo me een e comme anne + 
: ;_Psect synopsis ! 

PSECT name Allocation PSECT No. Attributes 

- 4ABS. 00000000 ( 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 ( 0.) O01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
NET_PURE 00000330 ( 816.) 0S ( 2.) NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC LONG 
NET_ IMPURE 00000048 ( 72.) 03 ¢ 3.) NOPIC USR CON’ REL LCL NOSHR NOEXE RD WRT NOVEC LONG 
NET_CODE 000007D2 ( 2002.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 

fm DH mmm Ee 
! ;_Per formance indicators ! 

Phase Page faults CPU Time Elapsed Time 

Initialization 26 00:00:00.12 00:00:00.94 

1h processing 140 a eS 00:00:04.96 

s 1 1084 00:00:30.39 es Seta 44 

Syabol table sort 19 00:00:04.09 00:00:04.88 

Pass 2 69 B92 B8: 18 8:88:87 «Be 

Symbol iable output 7 00:00:00.4 0:00:00.96 

Psect synopsis output 4 00:00:00.03 888: 02 

Cross-reference output g Ss S498 4 8 20:98 - 08 

Assembler run totals 203 0:00:42.34 0:01:02.89 


The working c Limit was 1950 page 
40 pages) of virtusl memory were used to buffer the intermediate code. 
There were 160 pages of syaboel table space allocated to hold 2806 non-local and 87 local symbols. 
1316 source nee were read in Pass 1, produc ing object records in Pass 
635 pages of virtual memory were used to define 45 macros. 
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VAk=Ti Macro Run Statistics "ores User connect requests "SSEp=19Rs B2:18:53 ENETKCE. SREShEvCON 
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Sears awnee nanan esrem sane oanece + 


| 

Macro Library name Macros defined 
-5255SDUA Fun IBJeVC LIBRY.MLB; 1 1 
_S255SDUA BJEVCDEF .MLB; 1 g 
_8255SDUA CP.OBJJNETDRV.MLB;1 
_ S29 $SDUA HENETACE: oBist NET.MLB;1 16 
_5255SDUA 1B.MLB;1 4 

SDUA28 Foyer ieys STARLET.MLB;2 12 
TOTALS (all Libraries) 35 


3030 GETS were required to define 35 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:NETCONECT/OBJ=OBJ$:NETCONECT MSRC$:NETCONECT/UPDATE=(ENHS:NETCONECT) +EXECML$/LIB+LIB$:NET/LIB+LIB$:NETDRV/LIB+SHRLIBS 


027 AH-BT13A-SE | DIGITAL EQUIPMENT CORPORATION 
| VAX/VMS V4.0 CONFIDENTIAL -AND PROPRIETARY 


